(calc-with-default-simplification): Use &rest for body.

diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el
index 08d0247b30badcc24a2ed915c391265870f70704..7d4cd14e76e155e541b01a93b94a700ef88376cf 100644 (file)
--- a/lisp/calc/calc-macs.el
+++ b/lisp/calc/calc-macs.el
@@ -51,7 +51,7 @@
   `(if (eq calc-display-working-message 'lots)
        (math-do-working ,msg ,arg)))
 
-(defmacro calc-with-default-simplification (body)
+(defmacro calc-with-default-simplification (&rest body)
   `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num)))
                                  calc-simplify-mode)))
      ,@body))